home *** CD-ROM | disk | FTP | other *** search
/ SVM Mac 133 / CD-ROM N°133 - Le CD-ROM des CD-ROM.iso / PARTCOM / SVMFOR / SOMM.DIR / 00003.ls < prev    next >
Encoding:
Text File  |  1995-11-09  |  450 b   |  25 lines
  1. on mouseDown
  2.   puppetSprite(4, 1)
  3.   repeat while the stillDown
  4.     if rollOver(4) then
  5.       set the castNum of sprite 4 to 23
  6.       updateStage()
  7.       next repeat
  8.     end if
  9.     set the castNum of sprite 4 to 3
  10.     updateStage()
  11.   end repeat
  12.   puppetSprite(4, 0)
  13. end
  14.  
  15. on mouseUp
  16.   if rollOver(4) then
  17.     set the mouseDownScript to "dontPassEvent"
  18.     if the frame = 20 then
  19.       go("W95")
  20.     else
  21.       go(the frame + 2)
  22.     end if
  23.   end if
  24. end
  25.